Option Explicit
Sub C_Sample032()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)				'Nu@
    mySht.Tab.ColorIndex = 4	 			'Hmިӫw
    'mySht.Tab.Color = RGB(0, 255, 0)		'HRGBȨӫw
    Set mySht = Nothing					'
End Sub

